function [PH,Z2]= Ant_ran(Ez,en,Na,L, EA,lambda,H)
exec('Rn1.sci');
R=Rn1(EA);                             // Орты направлений распространения помех 
                                                  // (строка-орт одной из помех)
if Na==6
    exec('antset1.sci');
    Pa=antset1(Na,L,H);        // Орты базовых линий; Na=6;  (строка - орт базы) 
end
if Na==3
    exec('antset_quad.sci');
    Pa=antset_quad(Na,L,H);      // Орты базовых линий; Na=3;  (строка - орт базы) 
end                                                // прямоугольной антенной системы  из 4 элементов      
if Na==1
    Pa=[L,0,0];
end
PaR=Pa*R';                              // матрица скалярных произведений (строка -- проекции
                                                    // направлений pаспространения одной из помех на базу
PH=exp((2*%pi*%i/lambda)*PaR);  // матрица фазовых сдвигов, строка -- фазовые сдвиги
                                                      // i-oй помехи на j-ой базе
Z2=PH*Ez;                                   // Каждая помеха ( строка) получает фазовый сдвиг, зависящий от проекции 
                                                      // вектора  распространения на j-ую  базу, в  результате  скалярного
                                                       // произведения  каждая строка Z2 является суммой 
Z2=Z2+en;                                    // добавление собственных шумов

endfunction
